home *** CD-ROM | disk | FTP | other *** search
/ PC User 2002 July / Disc 2 / PCU0702CD2.iso / entertn / floaters / files / Control / GameInstaller / data1.cab / GameDxr / Floaters.dxr / 00009_Button Script.ls < prev    next >
Encoding:
Text File  |  2002-05-17  |  2.4 KB  |  91 lines
  1. property pMyChnl
  2. global gClicked, gTestCounter, gErrCounter, gShapeList, gLevelNum, gRotVal
  3.  
  4. on beginSprite me
  5.   pMyChnl = me.spriteNum
  6. end
  7.  
  8. on mouseEnter me
  9.   if not gClicked then
  10.     if sprite(pMyChnl).member = member("TestOn") then
  11.       sprite(pMyChnl).member = member("TestRoll")
  12.     else
  13.       if sprite(pMyChnl).member = member("NextOn") then
  14.         sprite(pMyChnl).member = member("NextRoll")
  15.       else
  16.         if sprite(pMyChnl).member = member("Wait1") then
  17.           sprite(pMyChnl).member = member("Wait2")
  18.         end if
  19.       end if
  20.     end if
  21.     cursor(280)
  22.   end if
  23. end
  24.  
  25. on mouseWithin me
  26.   mouseEnter(me)
  27. end
  28.  
  29. on mouseLeave me
  30.   if (sprite(pMyChnl).member = member("TestRoll")) or (sprite(pMyChnl).member = member("TestDown")) then
  31.     sprite(pMyChnl).member = member("TestOn")
  32.   else
  33.     if (sprite(pMyChnl).member = member("NextRoll")) or (sprite(pMyChnl).member = member("NextDown")) then
  34.       sprite(pMyChnl).member = member("NextOn")
  35.     else
  36.       if sprite(pMyChnl).member = member("Wait2") then
  37.         sprite(pMyChnl).member = member("Wait1")
  38.       end if
  39.     end if
  40.   end if
  41.   cursor(-1)
  42. end
  43.  
  44. on mouseDown me
  45.   if not gClicked and (gErrCounter = 0) then
  46.     if sprite(pMyChnl).member = member("TestRoll") then
  47.       sprite(pMyChnl).member = member("TestDown")
  48.     else
  49.       if sprite(pMyChnl).member = member("NextRoll") then
  50.         sprite(pMyChnl).member = member("NextDown")
  51.       else
  52.         if sprite(pMyChnl).member = member("Wait1") then
  53.           sprite(pMyChnl).member = member("Wait2")
  54.         end if
  55.       end if
  56.     end if
  57.   end if
  58. end
  59.  
  60. on mouseUpOutSide me
  61.   mouseUp(me)
  62. end
  63.  
  64. on mouseUp me
  65.   if not gClicked and (gErrCounter = 0) then
  66.     if sprite(pMyChnl).member = member("TestDown") then
  67.       puppetSound(4, "BtnClick-01")
  68.       sprite(pMyChnl).member = member("TestRoll")
  69.       gTestCounter = gTestCounter + 1
  70.       if testDrawing() = 1 then
  71.         updateScore()
  72.         puppetSound(3, "electroRight")
  73.         go(the frame + 1)
  74.       else
  75.         puppetSound(3, "electroWrong")
  76.       end if
  77.     else
  78.       if sprite(pMyChnl).member = member("NextDown") then
  79.         sprite(pMyChnl).member = member("Wait1")
  80.         puppetSound(7, "BtnClick-01")
  81.         gRotVal = 20
  82.         gClicked = 1
  83.       else
  84.         if sprite(pMyChnl).member = member("Wait2") then
  85.           sprite(pMyChnl).member = member("Wait1")
  86.         end if
  87.       end if
  88.     end if
  89.   end if
  90. end
  91.